﻿Public Class Ncliente

    Public Function cargarCliente(ByVal item As Entidades.Ecliente) As Boolean

        Dim oDatos As New Datos.Dcliente
        Dim oClientes As New List(Of Entidades.Ecliente)
        Dim band As Boolean
        Try

            band = oDatos.insertarcliente(item)
        Catch ex As Exception
            Throw New ArgumentException(ex.Message)
        Finally
            oDatos = Nothing
        End Try
        Return band
    End Function
    Public Function comboloc() As DataTable
        Dim oDatos As New Datos.Dcliente
        Try
            Return oDatos.llenarcombo
        Catch ex As Exception
            Throw New ArgumentException(ex.Message)
        Finally
            oDatos = Nothing
        End Try
    End Function

End Class
